home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / AppleScripts / ps2jpeg.txt < prev    next >
Text File  |  1997-12-25  |  1KB  |  38 lines
  1. on open fileDropList
  2.     set theCount to count of fileDropList
  3.     set filesProcessed to 0
  4.     tell application "MacGS-510 FAT" to activate
  5.     repeat with i from 1 to theCount
  6.         set theFile to item i of fileDropList as alias
  7.         set theInfo to info for theFile
  8.         set theType to file type of theInfo
  9.         set theFileName to item i of fileDropList as string
  10.         if theType = "PDF " or theType = "TEXT" or theType = "EPSF" then
  11.             ProcessFiles(theFileName)
  12.             set filesProcessed to filesProcessed + 1
  13.         end if
  14.     end repeat
  15.     if filesProcessed > 0 then
  16.         if filesProcessed is equal to 1 then
  17.             set resultString to "One file was processed."
  18.         else
  19.             set resultString to {theCount, " files were processed."} as string
  20.         end if
  21.     else
  22.         set resultString to {"No files were processed."} as string
  23.     end if
  24.     display dialog resultString buttons "OK" with icon 1 default button 1
  25. end open
  26.  
  27. on ProcessFiles(theFile)
  28.     set theCommandLine to {"-q -sDEVICE=jpeg -r300 -sOutputFile=\"", theFile, "%d.jpeg\" \"", theFile, "\" -c quit"} as string
  29.     tell application "MacGS-510 FAT"
  30.         «event gsVRexec» theCommandLine
  31.     end tell
  32. end ProcessFiles
  33.  
  34. on run
  35.     set theFile to (choose file of type {"TEXT", "EPSF", "PDF "}) as string
  36.     ProcessFiles(theFile)
  37. end run
  38.